home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CICA 1994 April
/
CICA Shareware for Windows CD-ROM (Walnut Creek CD-ROM)(April 1994).ISO
/
win3
/
programr
/
vbasic
/
health.exe
/
MDIFORM1.FRM
< prev
next >
Wrap
Text File
|
1993-07-22
|
19KB
|
631 lines
VERSION 2.00
Begin Form mdiform1
BackColor = &H00FF0000&
BorderStyle = 0 'None
Caption = "MULTIPLE DOCUMENT FORM"
ClientHeight = 6630
ClientLeft = 195
ClientTop = 1800
ClientWidth = 9525
ControlBox = 0 'False
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 7320
Left = 135
LinkMode = 1 'Source
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6630
ScaleWidth = 9525
Tag = "clinical"
Top = 1170
Width = 9645
Begin MDIChild MDIChild1
BackColor = &H00C0C0C0&
Caption = "CLINICAL DATA"
Height = 5730
Icon = MDIFORM1.FRX:0000
Index = 3
Left = -720
Top = 960
Width = 9585
Begin ListBox List3
BackColor = &H00FF0000&
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00FFFFFF&
Height = 4020
Index = 0
Left = 0
TabIndex = 4
Top = 1320
Width = 4815
End
Begin ListBox List3
BackColor = &H00FF0000&
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00FFFFFF&
Height = 4020
Index = 1
Left = 4800
TabIndex = 5
Top = 1320
Width = 4695
End
Begin VHedit HEdit1
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 24
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 555
Index = 3
InflateBottom = 270
InflateLeft = 270
InflateRight = 270
InflateTop = 270
Left = 8640
TabIndex = 12
Top = 960
Version = 268435458
Visible = 0 'False
Width = 495
End
Begin AniPushButton AniButton3
BackColor = &H00C0C0C0&
Cycle = 2 '2-state 1/2 & 1/2
Height = 480
Index = 2
Left = 8880
PictDrawMode = 1 'Autosize control
Picture = MDIFORM1.FRX:0302
TabIndex = 11
Top = 360
Width = 480
End
Begin VBedit BEdit1
CellHeight = 500
CellWidth = 500
CombBaseLine = 500
CombEndHeight = 360
CombEndMarker = 0 'False
CombHeight = 270
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 24
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 855
Index = 3
InflateBottom = 180
InflateLeft = 180
InflateRight = 180
InflateTop = 240
Left = 840
TabIndex = 7
Top = 240
Version = 268435458
Width = 7695
End
End
Begin MDIChild MDIChild1
BackColor = &H00C0C0C0&
Caption = "RESPIRATION / CIRCULATION PATTERN"
Height = 5370
Icon = MDIFORM1.FRX:08E4
Index = 2
Left = -1080
Top = 240
Width = 9615
Begin ListBox List2
BackColor = &H00FF0000&
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00FFFFFF&
Height = 3450
Index = 0
Left = 0
TabIndex = 2
Top = 1200
Width = 4695
End
Begin ListBox List2
BackColor = &H00FF0000&
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00FFFFFF&
Height = 3450
Index = 1
Left = 4680
TabIndex = 3
Top = 1200
Width = 4815
End
Begin VHedit HEdit1
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 24
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 540
Index = 2
InflateBottom = 270
InflateLeft = 270
InflateRight = 270
InflateTop = 270
Left = 8880
TabIndex = 14
Top = 960
Version = 268435458
Visible = 0 'False
Width = 495
End
Begin AniPushButton AniButton3
BackColor = &H00C0C0C0&
Cycle = 2 '2-state 1/2 & 1/2
Height = 480
Index = 1
Left = 8880
PictDrawMode = 1 'Autosize control
Picture = MDIFORM1.FRX:0BE6
TabIndex = 10
Top = 360
Width = 480
End
Begin VBedit BEdit1
CellHeight = 500
CellWidth = 500
CombBaseLine = 500
CombEndHeight = 360
CombEndMarker = 0 'False
CombHeight = 270
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 24
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 855
Index = 2
InflateBottom = 180
InflateLeft = 180
InflateRight = 180
InflateTop = 240
Left = 1080
TabIndex = 8
Top = 120
Version = 268435458
Width = 7695
End
End
Begin MDIChild MDIChild1
BackColor = &H00C0C0C0&
Caption = "COGNITIVE / PERCEPTUAL PATTERN"
Height = 5850
Icon = MDIFORM1.FRX:11C8
Index = 1
Left = -1320
Top = 0
Width = 9585
Begin ListBox List1
BackColor = &H00FF0000&
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00FFFFFF&
Height = 3735
Index = 0
Left = 0
TabIndex = 0
Top = 1320
Width = 4695
End
Begin ListBox List1
BackColor = &H00FF0000&
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00FFFFFF&
Height = 3735
Index = 1
Left = 4680
TabIndex = 1
Top = 1320
Width = 4815
End
Begin VHedit HEdit1
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 24
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 540
Index = 1
InflateBottom = 270
InflateLeft = 270
InflateRight = 270
InflateTop = 270
Left = 8760
TabIndex = 13
Top = 960
Version = 268435458
Visible = 0 'False
Width = 495
End
Begin AniPushButton AniButton3
BackColor = &H00C0C0C0&
Cycle = 2 '2-state 1/2 & 1/2
Height = 480
Index = 0
Left = 8880
PictDrawMode = 1 'Autosize control
Picture = MDIFORM1.FRX:14CA
TabIndex = 9
Top = 360
Width = 480
End
Begin VBedit BEdit1
CellHeight = 500
CellWidth = 500
CombBaseLine = 500
CombEndHeight = 360
CombEndMarker = 0 'False
CombHeight = 270
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 24
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 855
Index = 1
InflateBottom = 180
InflateLeft = 180
InflateRight = 180
InflateTop = 240
Left = 960
TabIndex = 6
Top = 240
Version = 268435458
Width = 7695
End
End
Begin Menu e1
End
Begin Menu D4
End
Begin Menu D5
End
Begin Menu D6
End
Begin Menu BACK
Caption = "BACK"
End
Begin Menu D7
End
Begin Menu E4
End
Begin Menu E6
End
Begin Menu D8
End
Begin Menu D9
End
Begin Menu DUM1
End
Begin Menu DISPOSEROUTE
Caption = "EXIT"
End
Begin Menu e2
Enabled = 0 'False
End
Begin Menu DUM2
End
Begin Menu ARRANGE
Caption = "ARRANGE"
End
Begin Menu e3
End
Begin Menu D13
End
Begin Menu D14
End
Begin Menu D15
End
Begin Menu DUM3
End
Begin Menu FORWARD
Caption = "NEXT"
End
End
Dim appendflag1, appendflag2, appendflag3 As Integer
Sub AniButton3_Click (index As Integer)
Select Case anibutton3(0).value
Case 2
editswap bedit1(1), hedit1(1), 1
hedit1(1).visible = -1
bedit1(1).visible = 0
appendflag1 = -1
Case 1
editswap bedit1(1), hedit1(1), 2
hedit1(1).visible = 0
bedit1(1).visible = -1
appendflag1 = 0
End Select
Select Case anibutton3(1).value
Case 2
editswap bedit1(2), hedit1(2), 1
hedit1(2).visible = -1
bedit1(2).visible = 0
appendflag2 = -1
Case 1
editswap bedit1(2), hedit1(2), 2
hedit1(2).visible = 0
bedit1(2).visible = -1
appendflag2 = 0
End Select
Select Case anibutton3(2).value
Case 2
editswap bedit1(3), hedit1(3), 1
hedit1(3).visible = -1
bedit1(3).visible = 0
appendflag3 = -1
Case 1
editswap bedit1(3), hedit1(3), 2
hedit1(3).visible = 0
bedit1(3).visible = -1
appendflag3 = 0
End Select
End Sub
Sub ARRANGE_Click ()
mdichild1(1).ARRANGE = 1
End Sub
Sub BACK_Click ()
If smartform(6) Then
assess3.Show
mdiform1.Hide
Else
formcheck "Multiple Document"
End If
End Sub
Sub DISPOSEROUTE_Click ()
If smartform(6) Then
menumode mdiform1
Else
formcheck "Multiple Document"
End If
End Sub
Sub Form_Load ()
mdiform1.Move 0, 0, screen.width, screen.height
LIST3(0).AddItem "AGE"
LIST3(0).AddItem "HEIGHT"
LIST3(0).AddItem "WEIGHT"
LIST3(0).AddItem "TEMP"
LIST3(0).AddItem "PULSE"
LIST3(0).AddItem "RESPIRATIONS"
LIST3(0).AddItem "BLOOD PRESSURE"
LIST3(0).AddItem "GENERAL HEALTH:"
LIST3(0).AddItem "USE OF TOBACCO"
LIST3(0).AddItem "USE OF ALCOHOL"
LIST3(0).AddItem "USE OF OTHER DRUGS"
LIST3(0).AddItem "ORAL MUCOSA:"
LIST3(0).AddItem "HEALTHY"
LIST3(0).AddItem "MOIST"
LIST3(0).AddItem "SKIN:"
LIST3(0).AddItem "LESIONS"
LIST3(0).AddItem "NOURISHMENT:"
LIST3(0).AddItem "WELL-NOURISHED"
LIST3(0).AddItem "OBESE"
LIST3(0).AddItem "EMACIATED"
LIST3(0).AddItem "SKIN:"
LIST3(0).AddItem "SKIN NORMAL"
LIST3(0).AddItem "HEALING PROBLEMS"
LIST3(0).AddItem "CHANGES IN PIGMENTATION"
LIST3(0).AddItem "TEETH:"
LIST3(0).AddItem "NO PROBLEM CONDITION"
LIST3(0).AddItem "DENTURES"
LIST3(0).AddItem "CARIES"
LIST3(0).AddItem "BROKEN TEETH"
LIST3(0).AddItem "MISSING TEETH"
'**********************************************
LIST2(0).AddItem "BREATH SOUNDS"
LIST2(0).AddItem "LIP COLOR"
LIST2(0).AddItem "USE OF ACCESSORY MUSCLES"
LIST2(0).AddItem "COUGH:"
LIST2(0).AddItem "NON-PRODUCTIVE"
LIST2(0).AddItem "PRODUCTIVE SPUTUM COLOR"
LIST2(0).AddItem "APICAL RATE"
LIST2(0).AddItem "RHYTHM:"
LIST2(0).AddItem "REGULAR"
LIST2(0).AddItem "IRREGULAR"
LIST2(0).AddItem "ABNORMAL HEART SOUNDS NOTED"
LIST2(0).AddItem "NECK VEIN DISTENSION AT 45 DEGREES:"
LIST2(0).AddItem "PRESENT"
LIST2(0).AddItem "ABSENT"
LIST2(0).AddItem "EDEMA LOCATION"
LIST2(0).AddItem "RIGHT DORSALIS PEDAL PULSE:"
LIST2(0).AddItem "STRONG"
LIST2(0).AddItem "WEAK"
LIST2(0).AddItem "ABSENT"
LIST2(0).AddItem "LEFT DORSAL PEDAL PULSE"
LIST2(0).AddItem "STRONG"
LIST2(0).AddItem "WEAK"
LIST2(0).AddItem "ABSENT"
LIST2(0).AddItem "CALF TENDERNESS"
LIST2(0).AddItem "NO"
LIST2(0).AddItem "YES"
LIST2(0).AddItem "EXTREMITIES COLOR"
LIST2(0).AddItem " TEMP"
LIST2(0).AddItem "BREAST SOUNDS"
'**********************************************************
LIST1(0).AddItem "HEARING"
LIST1(0).AddItem "NORMAL LEFT"
LIST1(0).AddItem "NORMAL RIGHT"
LIST1(0).AddItem "IMPAIRED LEFT"
LIST1(0).AddItem "IMPAIRED RIGHT"
LIST1(0).AddItem "USES AID"
LIST1(0).AddItem "VISION"
LIST1(0).AddItem "NORMAL"
LIST1(0).AddItem "IMPAIRED"
LIST1(0).AddItem "GLASSES"
LIST1(0).AddItem "PROSTHESES"
LIST1(0).AddItem "FARSIGHTED"
LIST1(0).AddItem "NEARSIGHTED"
LIST1(0).AddItem "OTHER PROBLEMS"
LIST1(0).AddItem "COMMUNICATION:"
LIST1(0).AddItem "LANGUAGE SPOKEN:"
LIST1(0).AddItem "UNDERSTANDS ENGLISH:"
LIST1(0).AddItem "YES"
LIST1(0).AddItem "NO"
LIST1(0).AddItem "ABLE TO:"
LIST1(0).AddItem "READ"
LIST1(0).AddItem "WRITE"
LIST1(0).AddItem "LIP READ"
LIST1(0).AddItem "COGNITION:"
LIST1(0).AddItem "NO PROBLEMS"
LIST1(0).AddItem "RECENT MEMORY CHANGE"
LIST1(0).AddItem "DIFFICULTY LEARNING"
LIST1(0).AddItem "DISCOMFORT / PAIN"
LIST1(0).AddItem "NO"
LIST1(0).AddItem "YES "
LIST1(0).AddItem " DESCRIBE (LOCATION-INTENSITY-DURATION) "
LIST1(0).AddItem "EDUCATION - NEEDS REASON FOR ADMISSION"
'***************************************************************
LIST1(0).AddItem "HEARING"
LIST1(0).AddItem "HEARING"
LIST1(0).AddItem "HEARING"
mdichild1(3).Move 0, 0
mdichild1(2).Move 0, 360
mdichild1(1).Move 0, 720
mdichild1(3).active = -1
mdichild1(2).active = -1
mdichild1(1).active = -1
hedit1(1).Move bedit1(1).left, bedit1(1).top, bedit1(1).width, bedit1(1).height
hedit1(2).Move bedit1(2).left, bedit1(2).top, bedit1(2).width, bedit1(2).height
hedit1(3).Move bedit1(3).left, bedit1(3).top, bedit1(3).width, bedit1(3).height
End Sub
Sub FORWARD_Click ()
If smartform(6) Then
summary.Show
mdiform1.Hide
Else
formcheck "Multiple Document"
End If
End Sub
Sub List1_Click (index As Integer)
If appendflag1 Then
Select Case index
Case 0
LIST1(1).AddItem LIST1(0).list(LIST1(0).listindex) + " " + bedit1(1).text
Case 1
LIST1(1).RemoveItem LIST1(1).listindex
End Select
Else
Select Case index
Case 0
LIST1(1).AddItem LIST1(0).list(LIST1(0).listindex)
Case 1
LIST1(1).RemoveItem LIST1(1).listindex
End Select
End If
End Sub
Sub List2_Click (index As Integer)
If appendflag2 Then
Select Case index
Case 0
LIST2(1).AddItem LIST2(0).list(LIST2(0).listindex) + " " + bedit1(2).text
Case 1
LIST2(1).RemoveItem LIST2(1).listindex
End Select
Else
Select Case index
Case 0
LIST2(1).AddItem LIST2(0).list(LIST2(0).listindex)
Case 1
LIST2(1).RemoveItem LIST2(1).listindex
End Select
End If
End Sub
Sub List3_Click (index As Integer)
If appendflag3 Then
Select Case index
Case 0
LIST3(1).AddItem LIST3(0).list(LIST3(0).listindex) + " " + bedit1(3).text
Case 1
LIST3(1).RemoveItem LIST3(1).listindex
End Select
Else
Select Case index
Case 0
LIST3(1).AddItem LIST3(0).list(LIST3(0).listindex)
Case 1
LIST3(1).RemoveItem LIST3(1).listindex
End Select
End If
End Sub